home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / IBSec / MainForm.dfm < prev    next >
Encoding:
Text File  |  2000-03-27  |  2.9 KB  |  147 lines
  1. object IBSecMainForm: TIBSecMainForm
  2.   Left = 291
  3.   Top = 107
  4.   Width = 442
  5.   Height = 233
  6.   Caption = 'IBSec'
  7.   Color = clBtnFace
  8.   Constraints.MinHeight = 150
  9.   Constraints.MinWidth = 418
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   OnClose = FormClose
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label1: TLabel
  21.     Left = 256
  22.     Top = 6
  23.     Width = 58
  24.     Height = 13
  25.     Caption = 'Secure port:'
  26.   end
  27.   object Label2: TLabel
  28.     Left = 336
  29.     Top = 6
  30.     Width = 49
  31.     Height = 13
  32.     Caption = 'Password:'
  33.   end
  34.   object IBPort: TLabel
  35.     Left = 256
  36.     Top = 49
  37.     Width = 92
  38.     Height = 13
  39.     Caption = 'InterBase port: xxxx'
  40.   end
  41.   object Label3: TLabel
  42.     Left = 136
  43.     Top = 6
  44.     Width = 64
  45.     Height = 13
  46.     Caption = 'IBSec server:'
  47.   end
  48.   object CAPIVersion: TLabel
  49.     Left = 256
  50.     Top = 64
  51.     Width = 40
  52.     Height = 13
  53.     Caption = 'CAPI x.x'
  54.   end
  55.   object Operation: TRadioGroup
  56.     Left = 8
  57.     Top = 8
  58.     Width = 113
  59.     Height = 65
  60.     Caption = 'Operation'
  61.     ItemIndex = 0
  62.     Items.Strings = (
  63.       'Act as client'
  64.       'Act as server')
  65.     TabOrder = 0
  66.     OnClick = OperationClick
  67.   end
  68.   object Log: TMemo
  69.     Left = 8
  70.     Top = 80
  71.     Width = 417
  72.     Height = 121
  73.     Anchors = [akLeft, akTop, akRight, akBottom]
  74.     PopupMenu = ClearLogMenu
  75.     TabOrder = 1
  76.   end
  77.   object SecurePort: TEdit
  78.     Left = 256
  79.     Top = 22
  80.     Width = 57
  81.     Height = 21
  82.     TabOrder = 2
  83.     Text = '3051'
  84.   end
  85.   object Password: TEdit
  86.     Left = 336
  87.     Top = 22
  88.     Width = 89
  89.     Height = 21
  90.     PasswordChar = '*'
  91.     TabOrder = 3
  92.     Text = 'secret'
  93.   end
  94.   object StartStop: TButton
  95.     Left = 136
  96.     Top = 48
  97.     Width = 65
  98.     Height = 25
  99.     Caption = 'Start'
  100.     TabOrder = 4
  101.     OnClick = StartStopClick
  102.   end
  103.   object ServerHost: TEdit
  104.     Left = 136
  105.     Top = 22
  106.     Width = 105
  107.     Height = 21
  108.     TabOrder = 5
  109.     Text = '100.100.100.100'
  110.   end
  111.   object CryptData: TCheckBox
  112.     Left = 381
  113.     Top = 54
  114.     Width = 45
  115.     Height = 17
  116.     Caption = 'Crypt'
  117.     Checked = True
  118.     State = cbChecked
  119.     TabOrder = 6
  120.   end
  121.   object ServerSocket: TServerSocket
  122.     Active = False
  123.     Port = 0
  124.     ServerType = stNonBlocking
  125.     OnClientConnect = ServerSocketClientConnect
  126.     OnClientDisconnect = ServerSocketClientDisconnect
  127.     OnClientRead = ServerSocketClientRead
  128.     OnClientError = ServerSocketClientError
  129.     Left = 232
  130.     Top = 120
  131.   end
  132.   object ClearLogMenu: TPopupMenu
  133.     Left = 144
  134.     Top = 120
  135.     object ClearLog1: TMenuItem
  136.       Caption = '&Clear Log'
  137.       ShortCut = 16460
  138.       OnClick = ClearLog1Click
  139.     end
  140.     object LogEnabled1: TMenuItem
  141.       Caption = '&Log Enabled'
  142.       Checked = True
  143.       OnClick = LogEnabled1Click
  144.     end
  145.   end
  146. end
  147.